home *** CD-ROM | disk | FTP | other *** search
/ Immoral Angel 1 / Immoral Angel 1.iso / pc / program / play.dxr / 00079.ls < prev    next >
Encoding:
Text File  |  1997-07-11  |  2.3 KB  |  86 lines
  1. on placeqt
  2.   global selectedvideonum, qtstatus
  3.   set qtstatus to "QTon"
  4.   set videoname to "QT" & selectedvideonum
  5.   puppetSprite(15, 1)
  6.   set the type of sprite 15 to 16
  7.   set the ink of sprite 15 to 0
  8.   set the foreColor of sprite 15 to 255
  9.   set the backColor of sprite 15 to 0
  10.   set the castNum of sprite 15 to the number of member videoname
  11.   set the locH of sprite 15 to 517
  12.   set the locV of sprite 15 to 248
  13.   updateStage()
  14.   puppetSprite(12, 1)
  15.   set the type of sprite 12 to 1
  16.   set the ink of sprite 12 to 0
  17.   set the foreColor of sprite 21 to 255
  18.   set the backColor of sprite 21 to 0
  19.   set the castNum of sprite 12 to the number of member "onAir"
  20.   if value(item 2 of selectedvideonum) <= 6 then
  21.     set the locH of sprite 12 to 61
  22.     set the locV of sprite 12 to 237 + (39 * (value(item 2 of selectedvideonum) - 1))
  23.   else
  24.     if value(item 2 of selectedvideonum) >= 7 then
  25.       set the locH of sprite 12 to 208
  26.       set the locV of sprite 12 to 237 + (39 * (value(item 2 of selectedvideonum) - 7))
  27.     end if
  28.   end if
  29.   updateStage()
  30. end
  31.  
  32. on closeqt
  33.   global selectedvideonum, qtstatus
  34.   set qtstatus to "QToff"
  35.   if selectedvideonum = 0 then
  36.     exit
  37.   end if
  38.   puppetSprite(15, 1)
  39.   updateStage()
  40.   set the type of sprite 15 to 1
  41.   set the ink of sprite 15 to 0
  42.   set the foreColor of sprite 15 to 255
  43.   set the backColor of sprite 15 to 0
  44.   set the castNum of sprite 15 to the number of member "QTmask"
  45.   set the locH of sprite 15 to 517
  46.   set the locV of sprite 15 to 248
  47.   updateStage()
  48.   puppetSprite(12, 0)
  49.   updateStage()
  50. end
  51.  
  52. on stopqt
  53.   global selectedvideonum, videotime, qtstatus
  54.   if (selectedvideonum = 0) or (qtstatus = "QToff") then
  55.     exit
  56.   end if
  57.   puppetSprite(15, 1)
  58.   updateStage()
  59.   set the movieRate of sprite 15 to 0
  60.   set videotime to the movieTime of sprite 15
  61.   updateStage()
  62.   set the type of sprite 15 to 0
  63.   updateStage()
  64. end
  65.  
  66. on playqt
  67.   global selectedvideonum, videotime, qtstatus
  68.   if (selectedvideonum = 0) or (qtstatus = "QToff") then
  69.     exit
  70.   end if
  71.   set n to item 1 of selectedvideonum
  72.   go(n)
  73.   recoveryqt()
  74. end
  75.  
  76. on recoveryqt
  77.   global selectedvideonum, videotime
  78.   puppetSprite(15, 1)
  79.   set the type of sprite 15 to 16
  80.   updateStage()
  81.   set the foreColor of sprite 15 to 255
  82.   set the backColor of sprite 15 to 0
  83.   set the movieTime of sprite 15 to videotime
  84.   updateStage()
  85. end
  86.